home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q0867.dms
/
q0867.adf
/
TRAPDOOR.LZH
/
Scripts
/
ReMapper
< prev
next >
Wrap
AmigaDOS Script File
|
1991-09-21
|
1KB
|
39 lines
.key ""
.bra {
.ket }
; This is a tiny and ugly reMapper for my points.
echo "ReMapper 1.0 -- Copyright © 1990 by Maximilian Hantsch"
; The first MessageFilter line sends return receipts to all people
; that sent me netmail with the "Request Return Receipt" flag.
mf >t:ReMapper.{$$} rreq and not sent filename lformat "areceipt message %s"
; Remove successful AreaFix messages.
mf >>t:ReMapper.{$$} to areafix and recv filename lformat "delete %s"
; Now delete all messages that have been written locally, have the
; Kill-After-Sent bit set and have been sent already.
mf >>t:ReMapper.{$$} kill sent local filename lformat "delete %s"
; Remap mail for the some people.
mf >>t:ReMapper.{$$} to "Martin Laubach" filename lformat "ma %s D 3000 14"
mf >>t:ReMapper.{$$} to "Michael Brunner" filename lformat "ma %s D 3160 2"
mf >>t:ReMapper.{$$} to "Thomas Hantsch" filename lformat "ma %s D 3160 3"
mf >>t:ReMapper.{$$} to "Rene Hexel" filename lformat "ma %s D 3160 4"
; He's a twit. I don't want to read anything from him.
mf >>t:ReMapper.{$$} from "Cobol Clown" area TECHNICS filename lformat "delete %s"
mf >>t:ReMapper.{$$} from "Cobol Clown" area TEST filename lformat "delete %s"
; Now do it all:
execute t:ReMapper.{$$}
delete t:ReMapper.{$$}